home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0514.ZIP / CRAYZ15.ARC / OUT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-15  |  2KB  |  56 lines
  1. {Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, NY 13730}
  2.  
  3. procedure OUT ( var sa : real ; lda, n , m : integer ) ;
  4.      {                                                     }
  5.      { General purpose output routine for the matrix A     }
  6.      { which has leading dimension lda and is n by m.      }
  7.      {                                                     }
  8.      { J.J. Dongarra, SICE, ... (?)                        }
  9.      { Adam Fritz, TURBO Pascal, 2/22/85                   }
  10.      {                                                     }
  11.  
  12. var
  13.      i, j, k        : integer ;
  14.      ic, icb, ice   : integer ;
  15.      a              : RowPointer ;
  16.  
  17. begin
  18.    if n > 0 then begin
  19.       a := Ptr(Seg(sa),Ofs(sa)) ;
  20.       if m > 1 then begin
  21.          ic :=  (m + 4) div 5 ;
  22.          icb := 1 ;
  23.          ice := 5 ;
  24.          for k := 1 to ic do begin
  25.             if ice > m then
  26.                ice := m ;
  27.             for i := 1 to n do begin
  28.                for j := icb to ice do
  29.                   write (a^.s[(i-1)*lda+j]:14, ' ') ;
  30.                writeln
  31.             end ;
  32.             icb := icb + 5 ;
  33.             ice := ice + 5 ;
  34.             writeln
  35.          end
  36.       end
  37.       else begin
  38.          ic := (n + 4) div 5 ;
  39.          icb := 1 ;
  40.          ice := 5 ;
  41.          for k := 1 to ic do begin
  42.             if ice > n then
  43.                ice := n ;
  44.             for i := icb to ice do
  45.                write (a^.s[i]:14, ' ') ;
  46.             writeln ;
  47.             icb := icb + 5 ;
  48.             ice := ice + 5
  49.          end ;
  50.          writeln
  51.       end
  52.    end
  53. end ;
  54.  
  55. {Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, NY 13730}
  56.